mx3 z

R2

R1

R0

grpatch

sepatch

calcbnd

F vtadj

T vtadj

aload pop]cvx exch}for pop}B

/rdstr{0 1 3 -1 roll{strn 1 3 -1 roll 48 add put dup strn cvn exch string def[

mx0 z

mx0 currentmatrix pop

bn

pkng{savepacking setpacking}if

Z

2 blnd

0 blnd

cirm

cutm

regmarkdict begin

pop pop

docpat{

/setpageparams where{pop 1 setpageparams}{letter pop 0 exch 792 sub neg translate pop}ifelse

/patfr 1 1 mtx defaultmatrix dtransform pop abs
 dup 72 mul 4 -1 roll div exch .5 add cvi 8 mul dup 8 lt{pop 8}if div def

/CT ctf def

{currentfile}aload pop strn cvn load{readhexstring pop}

{currentfile}aload pop strn cvn load{readstring pop}

F setregcolor

3 -1 roll add 3 1 roll add

st0

/opimtx matrix currentmatrix def

dup /custsh X setcustomcolor

/epsmtx matrix currentmatrix def

1 index 0 exch translate 1 -1 scale

dup 0 translate -1 1 scale

pen 0 H 0 b

{currentfile /RunLengthDecode filter}aload pop strn cvn load{readstring pop}

0 0]

/xpys X /ctz

dup length custnamstr dup 79 3 index put 0 3 -1 roll getinterval copy custar astore

F rc u)kp

/custprsnt F def -1/regsh X

/custprsnt T def -1/regsh X

}appod

bkc 0 0 put

ptc G

bkc 0 1 put

rstrscr mtx1 z/pnm 1 def

mtx1 currentmatrix pop crntc cps

rdstr

F rc V G

F rc n G

initclip F rc u)kp

opimtx z

***

u)strtp

U)strtp

custblnd

F rc g u cps np mif

1 setdg

epR

epS

> pat

dup /custsh X T setregcolor

/setstrokeadjust where{pop F setstrokeadjust}if

/setscr0{

/getangl{

/setangl{

F stovp

0 sttrp

T stovp

F ov

F rc

0 gr

64 gr

T rc

T ov

}B

xps2ps

s2qd

xpbu

xpbn

bmp


sttrp

stovp

epsdict begin epsetup

rs

rv

rr1

/nf

h

setchc

ul

crs

sp

epsmtx

pkng{savepacking setpacking}if

px

lw

rh

dh

qq

eu

ec

ef

tc

te

tp

dfnt

f

L

ply

strik

/ss X

sen

ssn

ssh

D

d

std

bu

spcldr

tt

endp

pkng{/savepacking currentpacking def true setpacking}if

mif setc

/ff X

ep

imx z

ar

rr

lin

qc

qi

imx currentmatrix pop

pt

bp

cpat

rstrscr

pen

sg

gr